|
<%
if request("page")="" then
page=1
else
page=request("page")
end if
idx = request("idx")
adult_view = request("adult_view")
sql = "select idx,content,writeday,adult from manga_share where adult ="& adult_view &" order by idx desc"
set rs = server.createobject("adodb.recordset")
rs.pagesize = 10
rs.open sql,db,1
if not rs.BOF or not rs.EOF then
totalpage = rs.PageCount
rs.AbsolutePage = page
i=0
Do until rs.EOF or i>=rs.pagesize
num=(rs.RecordCount-i-(Page-1)*rs.PageSize)
Sql = "select count(*) tol_num from board_content where board_idx ='"& rs("idx") &"' and code=7"
set rs1 = db.Execute(SQL)
tol_num = rs1("tol_num")
rs1.close
%>
<%
rs.MoveNext
i=i+1
loop
%>
<% if page <> 1 then %>
<% end if %>
<% i=1
tenpage=int((page-1)/10)*10+1
do Until i>10 or int(tenpage)>int(totalpage)
if int(tenpage)=int(page) then
%>
<%=tenpage%>
<%else%>
<%=tenpage%>
<% end if
i=i+1
tenpage=tenpage+1
loop
%>
<% if cint(page) <> cint(totalpage) then %>
<% end if %> |
<%end if%> |
|